home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / 75LET.SRC < prev    next >
Text File  |  1990-11-05  |  1KB  |  96 lines
  1. ;\|
  2. ;75LET.SRC     Translated from 75LET.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;75LET    12:17:05 PM  21/ 6/90   |
  4.     define(CTR|N|4||)
  5.     define(CTR3|N|2||)
  6.     define(CTR2|N|4||)
  7.     define(WAIT|N|3||)
  8.     open(gpsetup|||)
  9.     trap(q|g|exit)
  10.     clrscr
  11.     pmsg("ENTER NUMBER OF CARDS TO PRINT:"|10|12|Y|N|S|CTR2)
  12.     pchr(P|4)
  13.     trap(I|G|EXIT)
  14.     mount(NEW|R|P)
  15.     find(b|heading||)
  16.     pset(132|18|18)
  17.     pchr(P|1)
  18.     for(CTR|1|CTR2|1)
  19.         {
  20.         WAIT = (WAIT+1)
  21.         if WAIT = (195) do
  22.             {
  23.             pmsg(WAIT;" printed - change labels and press ret...."|10|20|Y|N|S|)
  24.             WAIT = (0)
  25.             }
  26.         pfmt(1|||N|N|)
  27.         pblnk(1)
  28.         pfmt(2|||N|N|)
  29.         pfmt(3|||N|N|)
  30.         pfmt(4|||N|N|)
  31.         pfmt(5|||N|N|)
  32.         pfmt(6|||N|N|)
  33.         pblnk(1)
  34.         pfmt(7|||N|N|)
  35.         pfmt(8|||N|N|)
  36.         pfmt(9|||N|N|)
  37.         pfmt(10|||N|N|)
  38.         pblnk(1)
  39.         pfmt(11|||N|N|)
  40.         pblnk(4)
  41.         }
  42. EXIT:
  43.     run("recmenu")
  44. \R NEW     
  45.        &
  46.    We wondered whether you would like a domiciliary visit by
  47.    one of our Nurses to inspect your Living Conditions and
  48.    Lifestyle and to answer questions about your general health
  49.    eg Hearing,Bowels and Memory.The visit would involve a
  50.    PHYSICAL examination.
  51.    If you have NOT had,or NOT received ,a request like this
  52.    in the past 12 months and you would like a check of this
  53.    nature,then please inform the surgery IN WRITING WITHIN
  54.    THE NEXT 28 DAYS.
  55.            OTHERWISE JUST DISCARD THIS REQUEST
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93. \
  94. HEADING
  95. \
  96.